If Intersect(Target, Range("B1:B4")) Is Nothing Then Exit Sub